home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / amiga-magazin-pd / 12-94-4.1 / s.lzh / s / rpl-startup < prev   
Text File  |  1994-07-14  |  10KB  |  251 lines
  1.  
  2. ( REAL 3D RPL STARTUP FILE )
  3. ( Version 1.5        © 20.03.1993 by Axel Mertes )
  4. ( Modified version      6.06.1993 by Realsoft )
  5. ( Modified version     10.12.1993 by Günter Hagedorn )
  6. ( Modified version     28.12.1993 by Realsoft )
  7. ( Modified version     20.6.1993 by Realsoft )
  8.  
  9. ( For backward compatibility:
  10. : ! STORE ;
  11. : @ FETCH ;
  12. : F! FSTORE ;
  13. : F@ FFETCH ;
  14. : W! WSTORE ;
  15. : W@ WFETCH ;
  16. : B@ BFETCH ;
  17.  
  18. ( NORMAL KEYS `a`...`z` )
  19.  
  20. "r3d2:rpl/sys/editor.rpl" LOAD
  21. ( "r3d2:rpl/framecmd.rpl" LOAD
  22. ( "r3d2:rpl/methods.rpl" LOAD
  23.  
  24. VARIABLE iTOG_PARPER 0 iTOG_PARPER ! ( TOGgle PARallel/PERspective )
  25.  
  26. : KEY_* ( * = toggle parallel/perspective projection )
  27.    1 iTOG_PARPER @ - iTOG_PARPER !
  28.    3  0  iTOG_PARPER @  MENU  0
  29. ;
  30.  
  31. VARIABLE iTOG_ACCBOX 0 iTOG_ACCBOX ! ( TOGgle ACCurate/bounding BOX )
  32.  
  33. : KEY_/ ( / = toggle accurate/bounding box wire)
  34.    1 iTOG_ACCBOX @ - iTOG_ACCBOX !
  35.    2 14  iTOG_ACCBOX @  MENU  0
  36. ;
  37.  
  38. ( NORMAL KEYS `a`...`z` )
  39.  
  40. : KEY_a  2  2  5 MENU 0 ; ( change animation          modify/properties/animation
  41. : KEY_b  4  3  6 MENU 0 ; ( step backwards            animate/control/step_backwards
  42. : KEY_c  2  2  0 MENU 0 ; ( change colour             modify/properties/colour 
  43. : KEY_d  2  0 10 MENU 0 ; ( deform object             modify/linear/deform
  44. : KEY_e  2  0  8 MENU 0 ; ( shEar object              modify/linear/shear
  45. : KEY_f  4  3  5 MENU 0 ; ( step forward              animate/control/step_forwards
  46. : KEY_g  1  2  2 MENU 0 ; ( create group              create/structure/group
  47. : KEY_h  1  2  3 MENU 0 ; ( create metHod level       create/structure/method
  48. : KEY_i  2  2  2 MENU 0 ; ( Info about attributes     modify/properties/attributes
  49. : KEY_j  2  0  1 MENU 0 ; ( move cog = Jump           modify/linear/move COG
  50. : KEY_k  1  2  1 MENU 0 ; ( create linK               create/structure/link
  51. : KEY_l  1  2  0 MENU 0 ; ( create Level object       create/structure/level
  52. : KEY_m  2  0  0 MENU 0 ; ( move                      modify/linear/move
  53. : KEY_n  2  2  1 MENU 0 ; ( change name               modify/properties/name
  54. : KEY_o  2  0  7 MENU 0 ; ( Opposite position         modify/linear/mirrOr
  55. : KEY_p  1  3  0 MENU 0 ; ( create point lightsource  create/light/point
  56. : KEY_q  2  0  9 MENU 0 ; ( rotate and extend         modify/linear/rot&ext
  57. : KEY_r  2  0  6 MENU 0 ; ( rotate                    modify/linear/rotate
  58. : KEY_s  2  0  4 MENU 0 ; ( stretch                   modify/linear/strech
  59. : KEY_t  2  2  4 MENU 0 ; ( change tags               modify/properties/tags
  60. : KEY_u  4  3  8 MENU 0 ; ( Update anim. system       animate/control/refresh  
  61. : KEY_v  3  3  1 MENU 0 ; ( Create camera from View   view/camera/create
  62. : KEY_w  1  9  8 MENU     ( unthink and rethink )
  63.          1  9  6 MENU 0 ; ( Wireframe one level )
  64. : KEY_x  0  3  2 MENU 0 ; ( eXecute current macro     project/macros/execute current
  65. : KEY_y  0  3  4 MENU 0 ; ( repeat current macro      project/macros/repeat current
  66. : KEY_z  0  3  3 MENU 0 ; ( execute named macro       project/macros/execute named
  67.  
  68. ( SHIFT KEYS `A`...`Z` )
  69.  
  70. : KEY_A  1  9  3 MENU 0 ; ( boolean And with paint
  71. : KEY_B  1  9  0 MENU 0 ; ( Boolean or                create/boolean/or
  72. : KEY_C  2 12  8 MENU 0 ; ( surface to Curves
  73. : KEY_D  2 12  9 MENU 0 ; ( Distribute points         modify/freeform/distribute
  74. : KEY_E  2 12 11 MENU 0 ; ( Exchange u & v            modify/freeforn/exchange_u&v
  75. : KEY_F  0  7  0 MENU 0 ; ( open Framebuffer 
  76. : KEY_G  2 12 10 MENU 0 ; ( freeform assiGn 
  77. : KEY_H  4  5  0 MENU 0 ; ( edit anim. metHod         animate/edit
  78. : KEY_I  2  9  0 MENU 0 ; ( Inv. kinematics           modify/special/inv.kinem
  79. : KEY_J  2 12  2 MENU 0 ; ( Join freeforms            modify/freeform/concatenate 
  80. : KEY_K  1  4 10 MENU 0 ; ( create Knotpoint B-spl.   create/controls/B-Spline_Knot
  81. : KEY_L  5  0 15 MENU 0 ; ( Lasso selector 
  82. : KEY_M  0  3  0 MENU 0 ; ( record Macro on/off 
  83. : KEY_N  1  9  4 MENU 0 ; ( boolean and Not with paint
  84. : KEY_O  2 12  4 MENU 0 ; ( freeform Open/close 
  85. : KEY_P  2 12  0 MENU 0 ; ( freeform reParametrize
  86. : KEY_Q  0  7  1 MENU 0 ; ( Quit framebuffer          project/external screen/close
  87. : KEY_R  2 12  7 MENU 0 ; ( freeform Remap            modify/freeform/remap
  88. : KEY_S  2 12  3 MENU 0 ; ( freeform Swap directions
  89. : KEY_T  2 12  5 MENU 0 ; ( Type of freeform 
  90. : KEY_U  1  9  9 MENU 0 ; ( unthink all Wireframe 
  91. : KEY_V  2 12  6 MENU 0 ; ( freeform inVert 
  92. : KEY_W  1  9  9 MENU     ( unthink and rethink    
  93.          1  9  7 MENU 0 ; ( Wireframe in all sublevels 
  94. : KEY_X  2 12 13 MENU 0 ; ( Delete point/curve        modify/freeform/delete
  95. : KEY_Y  2 12 14 MENU 0 ; ( Insert point/curve        modify/freeform/insert
  96. : KEY_Z  2 12 15 MENU 0 ; ( Break point/curve         modify/freeform/break
  97.  
  98. : KEY_[ 4  3  2  MENU 0 ; ( go to beginning           animate/control/go_to_beginning
  99. : KEY_] 4  3  3  MENU 0 ; ( go to end                 animate/control/go_to_end
  100. : KEY_> 4  3  0  MENU 0 ; ( play forward              animate/control/play_forward
  101. : KEY_< 4  3  1  MENU 0 ; ( play backwards            animate/control/play_backwards
  102. : KEY_1 2  0  5  MENU 0 ; ( extend 1Dimensions        modify/linear/extend
  103. : KEY_2 2  0  2  MENU 0 ; ( size2D 2Dimensions        modify/linear/size2D
  104. : KEY_3 2  0  3  MENU 0 ; ( size3D 3Dimensions        modify/linear/size3D
  105. : KEY_& 1  9  1  MENU 0 ; ( boolean and               create/boolean/and
  106. : KEY_% 1  9  2  MENU 0 ; ( boolean and not           create/boolean/and_not
  107. : KEY_. 3  2  2  MENU 0 ; ( display Position          view/camera/display_pos
  108. : KEY_? 4  3  4  MENU 0 ; ( go to ?                   animate/control/go_to_?
  109.  
  110.  
  111. : KEY_F0~ ( F1 = project window to front, if not open it )
  112.     0 "View*" iWM_ACTIVATE WND_SENDMSG
  113.     NOT IF
  114.         iWT_VIEW "View" 0 0 502 512 WND_OPEN
  115.     ENDIF
  116.     0 ;
  117. : KEY_F1~
  118.     0 "Select*" iWM_ACTIVATE WND_SENDMSG
  119.     NOT IF
  120.         iWT_SELECT "Select" 502 10 138 107 WND_OPEN
  121.     ENDIF
  122.     0 ;
  123. : KEY_F2~
  124.     0 "Tool*" iWM_ACTIVATE WND_SENDMSG
  125.     NOT IF
  126.         iWT_TOOL "Tool" 502 117 138 139 WND_OPEN
  127.     ENDIF
  128.     0 ;
  129. : KEY_F3~
  130.     0 "Material*" iWM_ACTIVATE WND_SENDMSG
  131.     NOT IF
  132.         iWT_MATERIAL "Material" 0 11 640 200 WND_OPEN
  133.     ENDIF
  134.     0 ;
  135. : KEY_F4~
  136.     0 "Color*" iWM_ACTIVATE WND_SENDMSG
  137.     NOT IF
  138.         iWT_PALETTE "Color" 0 11 320 80 WND_OPEN
  139.     ENDIF
  140.     0 ;
  141. : KEY_F5~
  142.     0 "Screen*" iWM_ACTIVATE WND_SENDMSG
  143.     NOT IF
  144.         iWT_SCREEN "Screen" 0 11 300 85 WND_OPEN
  145.     ENDIF
  146.     0 ;
  147. : KEY_F6~
  148.     0 "Animation*" iWM_ACTIVATE WND_SENDMSG
  149.     NOT IF
  150.         iWT_ANIM "Animation" 0 11 640 115 WND_OPEN
  151.     ENDIF
  152.     0 ;
  153. : KEY_F7~
  154.     0 "Shell*" iWM_ACTIVATE WND_SENDMSG
  155.     NOT IF
  156.         iWT_SHELL "Shell" 0 312 640 200 WND_OPEN
  157.     ENDIF
  158.     0 ;
  159. : KEY_F8~
  160.     0 "Measure" iWM_ACTIVATE WND_SENDMSG
  161.     NOT IF
  162.         0  5  9 MENU
  163.     ENDIF
  164.     0 ;
  165. : KEY_F9~ 0  5 14 MENU 0 ; ( F10 = close active window )
  166.  
  167.  
  168. ( SHIFT FUNCTION KEYS `F1`...`F10` )
  169.  
  170. : KEY_F10~ ( SHIFT F1 = view view window close )
  171.     0 "View*" iWM_DIE WND_SENDMSG DROP 0 ;
  172. : KEY_F11~ ( SHIFT F2 = select window close )
  173.     0 "Select*" iWM_DIE WND_SENDMSG DROP 0 ;
  174. : KEY_F12~ ( SHIFT F3 = tool window close )
  175.     0 "Tool*" iWM_DIE WND_SENDMSG DROP 0 ;
  176. : KEY_F13~ ( SHIFT F4 = material window close )
  177.     0 "Material*" iWM_DIE WND_SENDMSG DROP 0 ;
  178. : KEY_F14~ ( SHIFT F5 = color window close )
  179.     0 "Color*" iWM_DIE WND_SENDMSG DROP 0 ;
  180. : KEY_F15~ ( SHIFT F6 = screen window close )
  181.     0 "Screen*" iWM_DIE WND_SENDMSG DROP 0 ;
  182. : KEY_F16~ ( SHIFT F7 = animation window close )
  183.     0 "Anim*" iWM_DIE WND_SENDMSG DROP 0 ;
  184. : KEY_F17~ ( SHIFT F8 = rpl shell window close )
  185.     0 "Shell*" iWM_DIE WND_SENDMSG DROP 0 ;
  186. : KEY_F18~ ( SHIFT F9 = measuring window close )
  187.     0 "Measuring*" iWM_DIE WND_SENDMSG DROP 0 ;
  188. : KEY_F19~ 0 6 3 MENU 0 ; ( SHIFT F10 = close active screen )
  189.  
  190.  
  191. ( CTRL KEYS: Codes 0...31, `^A`=1...`^Z`=26 )
  192.  
  193. : KEY_^a 3  7  3 MENU 0 ; ( CTRL A = delete All boxes )
  194. : KEY_^b 3  7  0 MENU 0 ; ( CTRL B = define Box )
  195. : KEY_^c 3  4  1 MENU 0 ; ( CTRL C = Create grid )
  196. : KEY_^d 3  4  4 MENU 0 ; ( CTRL D = Delete grid )
  197. : KEY_^e 3  7  2 MENU 0 ; ( CTRL E = dElete box = Erase )
  198. : KEY_^f 3  2  6 MENU 0 ; ( CTRL F = auto Focus )
  199. : KEY_^g 3  4  7 MENU 0 ; ( CTRL G = Grid snap on/off )
  200. : KEY_^h 3  5 11 MENU 0 ; ( CTRL H = render Hierarchy )
  201. : KEY_^i 3  0  3 MENU 0 ; ( CTRL I = separate Io on/off )
  202. : KEY_^j 2  7  0 MENU 0 ; ( CTRL J = Bend circular in 2D )
  203. : KEY_^k 2  8  4 MENU 0 ; ( CTRL K = Twist )
  204. : KEY_^l 1  3  1 MENU 0 ; ( CTRL L = Create Lightline )
  205. : KEY_^m 3  4  2 MENU 0 ; ( CTRL M = Modify grid )
  206. : KEY_^n 0  5 15 MENU 0 ; ( CTRL N = No gadgets )
  207. : KEY_^o 3  1  3 MENU 0 ; ( CTRL O = Object space to view )
  208. : KEY_^p 3  1  8 MENU 0 ; ( CTRL P = Reset Hot-Point )
  209. : KEY_^q 6  1  0 MENU 0 ; ( CTRL Q = General Settings )
  210. : KEY_^r 3  4  3 MENU 0 ; ( CTRL R = Reposition grid )
  211. : KEY_^s 3  4  0 MENU 0 ; ( CTRL S = Select grid )
  212. : KEY_^t 2  12 5 MENU 0 ; ( CTRL T = change objtype )
  213. : KEY_^u  6 10  2 MENU 0 ; ( CTRL U = clear Undobuffer )
  214. : KEY_^v  3  4  6 MENU 0 ; ( CTRL V = grid Visible on/off )
  215. : KEY_^w  3  7  4 MENU 0 ; ( CTRL W = shoW all boxes )
  216. : KEY_^x  3  2 11 MENU 0 ; ( CTRL X = define X axis )
  217. : KEY_^y  3  2 12 MENU 0 ; ( CTRL Y = define Y axis )
  218. : KEY_^z  3  2 10 MENU 0 ; ( CTRL Z = custom Zoom scale )
  219.  
  220. ( ALT KEYS `a`...`z` )
  221.  
  222. ( : KEY_A ; unused )
  223. : KEY_º  2  1  0 MENU 0 ; ( ALT B = cut = delete and Backup selected )
  224. : KEY_ç  2  1  1 MENU 0 ; ( ALT C = Copy selected )
  225. : KEY_ð  2  1  4 MENU 0 ; ( ALT D = Duplicate selected )
  226. : KEY_©  2  1  5 MENU 0 ; ( ALT E = swap = Exchange selected )
  227. ( : KEY_F ; unused, can`t be used! )
  228. ( : KEY_G ; unused, can`t be used! )
  229. ( : KEY_H ; unused, can`t be used! )
  230.  
  231. : KEY_¡  0  0  0 MENU 0 ; ( ALT I = Insert object )
  232.  
  233. ( : KEY_J ; unused, can`t be used! )
  234. ( : KEY_K ; unused, can`t be used! )
  235. ( : KEY_L ; unused )
  236. ( : KEY_M ; unused )
  237. ( : KEY_N ; unused, can`t be used! )
  238. : KEY_å  0  8  0 MENU 0 ; ( ALT Q = Quit programm )
  239. : KEY_®  0  0  2 MENU 0 ; ( ALT R = Replace object )
  240. : KEY_ß  0  0  1 MENU 0 ; ( ALT S = Save object )
  241. ( : KEY_T ; unused )
  242. ( : KEY_U ; unused )
  243. ( : KEY_V ; unused )
  244. ( : KEY_W ; unused )
  245. : KEY_×  2  1  3 MENU 0 ; ( ALT X = delete = eXterminate selected )
  246. ( : KEY_Y ; unused )
  247. ( : KEY_Z ; unused )
  248.  
  249.  
  250. ( END OF FILE )
  251.